home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #1 / Amiga Plus CD - 2000 - No. 1.iso / Games / Demos / T-zero / T0prefs / T0setup. < prev   
Encoding:
Text File  |  1999-06-18  |  2.1 KB  |  83 lines
  1. ; T-Zer0 Setup Installer-script
  2. ; $VER: V1.05, 11 Giugno 1999
  3. ; ============================================================================
  4.  
  5. (set @abort-button "Abort Setup")
  6.  
  7. (set #hello-message
  8.    (cat "\n\n\n"
  9.     "--------- T-zer0 ---------"
  10.     "\n"
  11.     "Setup Utility"
  12.     "\n\n\n"
  13.     "(c) 1999 PXL Computers Inc. and clickBOOM"
  14.     "\n\n\n"
  15.     "www.pxlcomputers.com\n"
  16.     "www.clickboom.com"
  17.     ))
  18.  
  19. (set #welcome (cat "------------------- T-zer0 SetUp -------------------"))
  20. (set #cdaudio 0)
  21. (set #save 1)
  22. (Procedure Intro (message #hello-message))
  23.  
  24. (Procedure Selective
  25.  (set #type
  26.    (askchoice (prompt "------------------ Main SetUp Menu ------------------")
  27.           (help @askchoice-help)
  28.           (choices "- CD Audio  Setup -"
  29.                "!Save Preferencies!")
  30.           (default #type))))
  31.  
  32. (Procedure CDAudioPrefs
  33.    (set #cdaudio_device
  34.     (askstring (prompt "--------------- CD-ROM Control Device ---------------"
  35.                "\n\n"
  36.                " Please enter the name of your CD-ROM device \n"
  37.                " controller. For ATAPI drives, it should be something like \n"
  38.                " 'cd.device' or 'atapi.device'. For SCSI drives \n"
  39.                " it is usually 'scsi.device'. ")
  40.           (help @askstring-help)
  41.           (default #cdaudio_device)))
  42.    (set #cdaudio_unit
  43.     (asknumber (prompt "------------- CD-ROM Device Unit Number -------------"
  44.                "\n\n"
  45.                " Please enter the unit number of your CD-ROM device. ")
  46.           (help @asknumber-help)
  47.           (range 0 7)
  48.           (default #cdaudio_unit)))
  49.    )
  50.  
  51. (if (exists "T0Prefs/T0.Prefs")
  52.      (set #rtype 0)
  53.     ((message "\n Error!!!\n Unable to locate T0 path...")
  54.      (exit (quiet))))
  55.  
  56. (copyfiles (source "T0Prefs/T0.Prefs") (dest "ram:") (nogauge))
  57.  
  58.  
  59. (run "T0Prefs/T0CD -GET cd_device")
  60. (set #cdaudio_device (getenv "T0"))
  61.  
  62. (run "T0Prefs/T0CD -GET cd_unit")
  63. (set #cdaudio_unit (getenv "T0"))
  64.  
  65.  
  66. (Intro)
  67. (welcome #welcome)
  68. (Until (= #type #save)
  69. (set #type #rtype)
  70. (Selective)
  71. (If (= #type #cdaudio)  (CDaudioPrefs))
  72. )
  73.  
  74. (run "T0Prefs/T0CD -SET cd_device "     #cdaudio_device)
  75. (run "T0Prefs/T0CD -SET cd_unit "       #cdaudio_unit)
  76.  
  77. (copyfiles
  78.     (source "ram:T0.Prefs")
  79.     (dest "T0Prefs/")
  80.     )
  81. (exit (quiet))
  82.  
  83.